﻿Imports DAO
Imports DTO
Public Class DangNhapBUS
    Public Function DangNhapHeThong(ByVal _TenDangNhap As String, ByVal _MatKhau As String) As List(Of DangNhapDTO)

        Dim ds As New List(Of DangNhapDTO)
        Dim dndao As New DangNhapDAO
        ds = dndao.DangNhap(_TenDangNhap, _MatKhau)
        If _TenDangNhap.ToString = "" Then
            Throw New Exception("Tên đăng nhập chưa có")
        ElseIf _MatKhau.ToString = "" Then
            Throw New Exception("Mật khẩu chưa có")

        ElseIf ds.Count = 0 Then
            Throw New Exception("Đăng nhập không thành công!!!!")
        Else
            Return ds

        End If

    End Function
End Class
